00100		DIMENSION L(72),LS(720)
00200	12	TYPE 13
00300	13	FORMAT(' TYPE FILE NAME OR <CR> FOR NEW FILE'/)
00400		ACCEPT 11,NAME
00500		IF(NAME.EQ.'     ')GO TO 3
00600		IF(.NOT.LOOKD(NAME))GO TO 12
00700		CALL IFILE(1,NAME)
00800		READ(1)N,(LS(I),I=1,N)
00900	3	TYPE 1
01000	1	FORMAT(' TYPE 2 NUMBERS BETWEEN 1 AND 99'/)
01100		ACCEPT 2,J,K
01200	2	FORMAT(2I)
01300		IF(J.LT.1.OR.J.GT.99.OR.K.LT.1.OR.K.GT.99)GO TO 3
01400		IF(NAME.EQ.'     ')GO TO 5
01500		IK=0
01600		CALL RNDINT
01700	20	DO 16 I=1,J
01800	16	M=RAND(1.0,99.0)
01900		DO 15 I=1,72
02000		M=RAND(1.0,99.0)
02100	15	L(I)=LS(IK+I)-K-M
02200		TYPE 17,(L(I),I=1,72)
02300	17	FORMAT(1X72A1)
02400		IK=IK+72
02500		LR=L(1)
02600		IF(IK.LT.N)GO TO 20
02700		TYPE 30
02800	30	FORMAT(//' TYPE FIRST LETTER OF LAST LINE IF RIGHT'/)
02900		ACCEPT 23,MR
03000	23	FORMAT(A1)
03100		IF(MR.NE.LR)GO TO 3
03200		CALL RNDINT
03300		DO 8 I=1,J
03400	8	M=RAND(1.0,99.0)
03500	5	TYPE 4
03600	4	FORMAT(' TYPE LINE OR <CR> TO SAVE'/)
03700		ACCEPT 6,(L(I),I=1,72)
03800	6	FORMAT(72A1)
03900		IF(L(1).EQ.' ')GO TO 7
04000		DO 9 I=1,72
04100		M=RAND(1.0,99.0)
04200		N=N+1
04300	9	LS(N)=L(I)+K+M
04400		GO TO 5
04500	7	TYPE 10
04600	10	FORMAT(' TYPE 5 LETTER NAME FOR FILE'/)
04700		ACCEPT 11,NAME
04800	11	FORMAT(A5)
04900		IF(NAME.EQ.'     ')GO TO 7
05000		CALL OFILE(1,NAME)
05100		WRITE(1)N,(LS(I),I=1,N)
05200		END FILE 1
05300		GO TO 12
05400		END